home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / nz18.dms / nz18.adf / BASIC to Assembly / ASM->BASIC next >
Text File  |  1993-12-03  |  811b  |  37 lines
  1. 'Converts object file to BASIC data
  2. 'statements.
  3. 'Note: I have only tried it with
  4. 'asm68k.
  5. 'By John Murphy.
  6.  
  7. INPUT "Object file:",f$
  8. in$=f$+".o":out$=f$+".init"
  9. OPEN in$ FOR INPUT AS 1
  10. OPEN out$ FOR OUTPUT AS 2
  11. a$=INPUT$(LOF(1),1)
  12. a$=MID$(a$,29)
  13. a$=LEFT$(a$,LEN(a$)-4)
  14. PRINT#2,"init:"
  15. PRINT#2,"READ L"
  16. PRINT#2,"CODE$=SPACE$(L*2+5)"
  17. PRINT#2,"START&=4&+4&*INT(SADD(CODE$)/4&)"
  18. PRINT#2,"FOR BYTE=0 TO L-1"
  19. PRINT#2,"  READ V%"
  20. PRINT#2,"  POKEW START&+BYTE*2&,V%"
  21. PRINT#2,"  NEXT BYTE" 
  22. PRINT#2,"DATA";LEN(a$)/2
  23. FOR a=1 TO LEN(a$) STEP 8
  24.   l$="DATA "
  25.   FOR b=0 TO 7 STEP 2
  26.     IF a+b>LEN(a$) THEN nexb
  27.     n1$="00"+HEX$(ASC(MID$(a$,a+b,1)))
  28.     n2$="00"+HEX$(ASC(MID$(a$,a+b+1,1)))
  29.     l$=l$+"&H"+RIGHT$(n1$,2)+RIGHT$(n2$,2)+","
  30.     nexb: NEXT b
  31.     PRINT#2,LEFT$(l$,LEN(l$)-1)
  32.   NEXT a
  33. PRINT#2,"RETURN"
  34. CLOSE 1,2
  35.  
  36.  
  37.